* lisp/mail/rfc2047.el (rfc2047-decode-encoded-words): Set `words` to nil.

diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el
index bb8bc01dce52946f641f8f1d448e07fd3571509c..e2af86b32468a29df115f2f19dcc14d06ceb7a82 100644 (file)
--- a/lisp/mail/rfc2047.el
+++ b/lisp/mail/rfc2047.el
@@ -952,6 +952,7 @@ ENCODED-WORD)."
            (push (cons cs text) rest))
        ;; Don't decode encoded-word.
        (push (cons nil (nth 3 word)) rest)))
+    (setq words nil)
     (while rest
       ;; FIXME: This looks O(N²).  Can we make it more efficient
       ;; with something like mapconcat?